﻿Imports Display.SRAGWM

Namespace SRAGWM

    Public Class MapDetails

        Dim _Rng
        Dim _Width, _Height As Integer

        Public Property Rng()
            Get
                Return _Rng
            End Get
            Set(ByVal value)
                _Rng = value
            End Set
        End Property
        Public Property Width()
            Get
                Return _Width
            End Get
            Set(ByVal value)
                _Width = value
            End Set
        End Property
        Public Property Height()
            Get
                Return _Height
            End Get
            Set(ByVal value)
                _Height = value
            End Set
        End Property

        Public Sub New(ByVal pRng As Object, ByVal pWidth As Integer, ByVal pHeight As Integer)

            _Rng = pRng
            _Width = pWidth
            _Height = pHeight

        End Sub

    End Class
End Namespace